home *** CD-ROM | disk | FTP | other *** search
/ How to Get Online 1996 Spring / HOW2GON.ISO / mac / HTML / TableTool ƒ / HTML TableTool / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1995-08-19  |  3.6 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2838</cardID>
  8.     <listID>4087</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack
  17. global kWords
  18. global filNamn
  19. put empty into filNamn
  20. put empty into cd fld Filen
  21. put empty into cd fld Table
  22. get the screenRect
  23. IF (item 4 of it - item 2 of it) ‚⧠342 THEN hide menuBar
  24. IF the hilite of cd btn "Non-ASCII" THEN taggem ELSE put empty into kWords
  25. end openStack
  26.  
  27. on closeStack
  28. show menuBar
  29. end closeStack
  30.  
  31. function fullPathToFileName fullPathName
  32. put the itemDelimiter into savedDelimiter
  33. set itemDelimiter to ":"
  34. put last item of fullPathName into fileName
  35. set itemDelimiter to savedDelimiter
  36. return fileName
  37. end fullPathToFileName
  38.  
  39. function noTxt fullName
  40. get offset(".txt", fullName)
  41. IF it ‚↠0
  42. THEN delete char it to it + 3 of fullName
  43. return fullName
  44. end noTxt
  45.  
  46. function tagged string
  47. global kWords
  48. IF string is empty THEN
  49. return string
  50. exit tagged
  51. END IF
  52. set itemDelimiter to comma
  53. repeat with c = 1 to the number of chars in string
  54. get charToNum(char c of string)
  55. IF it > 126 THEN put item (it - 126) of kWords after tString
  56. ELSE put char c of string after tString
  57. end repeat
  58. set itemDelimiter to tab
  59. return tString
  60. end tagged
  61.  
  62. function linked string
  63. global kWords
  64. IF string is empty THEN
  65. return string
  66. exit linked
  67. END IF
  68. IF ".gif" is in string OR ".jpg" is in string OR ".jpeg" is in string
  69. THEN return "<IMG SRC=" & quote & string & quote & ">"
  70. ELSE return string
  71. end linked
  72.  
  73. -- Kudos to Niklas Frykholm & HTML Pro for the codes!
  74. on taggem
  75. global kWords
  76. put "&#127;,&Auml;,&Aring;,&Ccedil;,&Eacute;,&Ntilde;,&Ouml;," ¬¨
  77. & "&Uuml;,&aacute;,&agrave;,&acirc;,&auml;,&atilde;,&aring;," ¬¨
  78. & "&ccedil;,&eacute;,&egrave;,&ecirc;,&euml;,&iacute;,&igrave;," ¬¨
  79. & "&icirc;,&iuml;,&ntilde;,&oacute;,&ograve;,&ocirc;,&ouml;," ¬¨
  80. & "&otilde;,&uacute;,&ugrave;,&ucirc;,&uuml;,&#221;,&#176;,&#162;," ¬¨
  81. & "&pound;,&#167;,&#128;,&#182;,&szlig;,&#174;,&copy;,&#129;," ¬¨
  82. & "&#180;,&#168;,&#130;,&AElig;,&Oslash;,&#131;,&#177;,&#190;," ¬¨
  83. & "&#132;,&#165;,&#181;,&#143;,&#133;,&#189;,&#188;,&#134;,&#170;," ¬¨
  84. & "&#186;,&#135;,&aelig;,&oslash;,&#191;,&#161;,&#172;,&#136;," ¬¨
  85. & "&#159;,&#137;,&#144;,&#171;,&#187;,&#138;,&nbsp;,&Agrave;," ¬¨
  86. & "&Atilde;,&Otilde;,&#145;,&#166;,&#173;,&#139;,&#179;,&#178;," ¬¨
  87. & "&#140;,&#185;,&#247;,&#215;,&yuml;,≈∏,&#142;,&#164;,&#208;," ¬¨
  88. & "&#240;,&#222;,&#254;,&#253;,&#183;,&#146;,&#147;,&#148;,&Acirc;," ¬¨
  89. & "&Ecirc;,&Aacute;,&Euml;,&Egrave;,&Iacute;,&Icirc;,&Iuml;," ¬¨
  90. & "&Igrave;,&Oacute;,&Ocirc;,&#149;,&Ograve;,&Uacute;,&Ucirc;," ¬¨
  91. & "&Ugrave;,&#150;,&#151;,&#175;,&#152;,&#153;,&#154;,&#184;," ¬¨
  92. & "&#155;,&#156;,&#157;" into kWords
  93. end taggem
  94. </script>
  95.     <background id="2710" file="background_2710.xml" name="" />
  96.     <card id="2838" file="card_2838.xml" marked="false" name="" owner="2710" />
  97. </stack>
  98.